home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE Outlook Express 11.xpl < prev    next >
Text File  |  2002-01-10  |  1KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Internet\Outlook Express\System"
  5. "UIPATH 2"="Internet\Instant Messaging\Windows Messenger\System"
  6. "NAME"="Windows Messenger/Outlook Express Integration"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable Windows Messenger extensions in Outlook Express"
  9. "DESCRIPTION 1"="By default, installing Windows Messenger adds a number of extensions to Outlook Express and the Windows Address Book. If this annoys you (or causes problems with your computer), you can disable it here."
  10. "DESCRIPTION 2"="Clear the checkbox to prevent any integration, place a tick next to it to enable it."
  11. "DESCRIPTION 3"="You should close Outlook Express completely before changing this option."
  12. "VERSION"="1.2"
  13. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  15. "CONTACTURL"="http://www.xteq.com/"
  16.  
  17. sP="HKLM\Software\Microsoft\Outlook Express\Hide Messenger"
  18. sP2="HKLM\SOFTWARE\Microsoft\MessengerService\"
  19.  
  20. SUB Plugin_Initialize
  21.  t=RegPathExists(sP2)
  22.  if t=true then
  23.   s=RegReadValue(sP)
  24.   if s<>2 then
  25.    Call SetUIElement(1,true)
  26.   end if
  27.  else
  28.   Call Disable()
  29.  end if
  30. END SUB
  31.  
  32. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  s=GetUIElement(1)
  34.  if s=true then
  35.   t=RegValueExists(sP)
  36.   if t=true then
  37.    Call RegDeleteValue(sP)
  38.   end if
  39.  else
  40.   Call RegWriteValue(sP,2,2)
  41.  end if
  42. END SUB
  43.  
  44. SUB Plugin_Terminate
  45. END SUB
  46.